home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / tutorial / trac.zip / EX-III-1.OBJ < prev    next >
Text File  |  1990-01-24  |  2KB  |  41 lines
  1. 0002          0 0002          0 Origin to define I as 3
  2. 0003          0 I             0
  3. 0009          0 0009          0 Re-origin past index registers
  4. 0010     400037 STRT     RDMAX  Read in number of values
  5. 0011     000042          LDZERO Load zero
  6. 0012     030003          STI    Initialize I
  7. 0013    3401000 READ    3RDX    Read a X(I)
  8. 0014     000003          LDI    Load I
  9. 0015     010043          ADONE  Add 1
  10. 0016     030003          STI    Save new I
  11. 0017     020037          SUMAX  Subtract MAX
  12. 0018     240013          BNREAD If I < MAX go back to READ
  13. 0019     000042          LDZERO 
  14. 0020     030003          STI    Initialize I
  15. 0021     030038          STS    Initialize S
  16. 0022     030039          STS2   Initialize S2
  17. 0023    3001000 LOOP    3LDX    Load X(I)
  18. 0024     010038          ADS    Add S
  19. 0025     030038          STS    Store at S
  20. 0026    3001000         3LDX    Load X(I)
  21. 0027    3151000         3MUX    Multiply by X(I)
  22. 0028     010039          ADS2   add S2
  23. 0029     030039          STS2   Store at S2
  24. 0030     000003          LDI    Increment I
  25. 0031     010043          ADONE 
  26. 0032     030003          STI   
  27. 0033     020037          SUMAX  Test for done
  28. 0034     240023          BNLOOP Repeat loop if not done
  29. 0035     410037          PCMAX  Display MAX, S, S2
  30. 0036     500000          HT0000 Halt
  31. 0037          0 MAX           0 Reserve read area for MAX
  32. 0038          0 S             0 Put S here for output
  33. 0039          0 S2            0 Put S2 here for output
  34. 0040          0               0 Reserve 2 locations for read and print
  35. 0041          0               0
  36. 0042          0 ZERO          0 Constant ZERO
  37. 0043          1 ONE           1 Constant 1
  38. 0999          0 0999          0 Re-origin for array X
  39. 1000          0 X             0 Starts X at 1000, can use rest of memory
  40. 9999     000010          ENSTRT End-of-code
  41.